--migração do título pagos

set identity_insert ContaPagar on 
insert into ContaPagar(
Codigo,
CodTipoConta,
NomeTipoConta,
DataMovimento,
DataVencimento,
CodFornecedor,
Valor, 
Parcela,
TotalParcela,
Observacao,
DataPagamento,
ValorPago,
DataHoraUltimaGravacao,
UsuarioUltimaGravacao,
CodPlanoContas,
CodCentroCusto
)
select 
rec.Codigo_pag,
1,
'VENDA',
rec.DataMov_pag,
rec.Vencto_pag,
rec.Codigo_for,
rec.Valor_pag,
rec.Parcela_pag,
rec.TotalParc_pag,
rtrim(ltrim(substring(rec.Observ_pag,1,200))),
rec.DataPgto_pag,
rec.ValorPago_pag,
GETDATE(),
'MIGRAÇÃO',
rec.Codigo_plc,
rec.Codigo_cnc
from Dados_db..Pagar_tb as rec
where rec.DataPgto_pag is not null;
set identity_insert ContaPagar off


update ContaPagar set CodEmp = 1

select * from ContaPagar

update ContaPagar
set NomeFornecedor = OutraTabela.Nome
from (select Nome, Codigo from Fornecedor) as OutraTabela
where OutraTabela.Codigo = ContaPagar.CodFornecedor

update ContaPagar
set Documento = a.Duplicata_pag
from (select Codigo_pag, Duplicata_pag from Dados_db..Pagar_tb) a
where a.Codigo_pag = ContaPagar.Codigo